home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / comm1 / lcall111.lha / callerid.rexx < prev    next >
OS/2 REXX Batch file  |  1996-01-15  |  680b  |  26 lines
  1. /* Logging of CallerID info into Excelsior! caller log */
  2. /*           CALLERID Version 1.11                     */
  3. /* This program written by Gerald Affeldt.             */
  4. /* Copy righted 15 Jan 1996. All rights reserved       */
  5.  
  6. Caller = 'doors:callerid/caller'  /*Path to callerID log file from TrapDoor*/
  7. open(idfile,CALLER,read)
  8.  
  9. callers = 'bbs:text/logs/callers' /*Path to BBS caller Log*/
  10.    if exists(callers) then do
  11.    open(log,callers,append)
  12.    end ; else open(log,callers,write)
  13.  
  14. writeln(log,'\c1-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=')
  15. writeln(log,'\c2Call Received\c3')
  16.  
  17. do i = 1 to 4
  18.    id = readln(idfile)
  19.    writeln(log,id)
  20.    end
  21.  
  22. close idfile
  23. close(log)
  24.  
  25. exit
  26.